home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 10ex003.jar / code / ch10 / 10ex003 / 10ex003.pl next >
Perl Script  |  1998-04-01  |  623b  |  20 lines
  1. #!/usr/bin/perl  
  2. #  Default package is main 
  3. use strict 'vars'; # makes sure that global or local variables are outlawed 
  4.  
  5. my @town = ( "Boston" , "Chico" , "Tampa" ); 
  6. my $friend= "Mary" ; 
  7.  
  8. print " In main: \$friend is $friend
  9.  " ; 
  10.  
  11. {package boy; # package declaration 
  12. my $friend= "Lizzy" ; 
  13. print "In boy \$friend is $friend\n" ; 
  14. print "In boy \$main::friend is unknown " , $main::friend, "\n" ; 
  15. print "In boy \@::town is unknown " , @::town, "\n" ; 
  16. }  
  17. #back  in package main 
  18. print "1.In main: \$boy::friend is $boy::friend.\n" ; 
  19. print "2.In main: \@town is  " , join(", ", @town), " .\n" ; 
  20.